home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Graphics / SViewNG / ARexx-Scripts / ConvertFile.rx < prev    next >
Text File  |  1997-09-28  |  1KB  |  63 lines
  1. /*
  2.    $VER: ConvertFile.rx V7.16 (21.7.97)
  3.    © 1993-97 by Andreas R. Kleinert
  4.  
  5.    This script demonstrates loading, saving (converting) and
  6.    displaying files by using SViewNG's ARexxPort.
  7.  
  8. */
  9.  
  10. address command
  11.  
  12. SViewNG "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  13.  
  14. say ""
  15. say "ARexx: SViewNG has been started : Waiting a moment..."
  16.  
  17. wait 5
  18.  
  19. OPTIONS RESULTS
  20. SIGNAL ON ERROR
  21. SVNGPORT = 'SViewNG.rx'
  22. SVPORT   = 'SuperView.rx'
  23.  
  24. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  25. IF ~SHOW('P',SVPORT) THEN DO
  26.   say "Could not locate ARexx port of SViewNG !"
  27.   CALL ErrorOut 0
  28. END
  29.  
  30. ADDRESS VALUE SVPORT
  31.  
  32. say "ARexx: Loading a PCX Graphics via the LOAD command"
  33. 'LOAD=TEST.PCX'
  34.  
  35. say "ARexx: Saving Graphics as IFF ILBM"
  36.  
  37. 'SAVE_TYPE=ILBM CmpByteRun1'
  38. 'SAVE=TEST.IFF'
  39.  
  40. address command wait 3
  41.  
  42. say "ARexx: Load this ILBM Gfx now for control"
  43.  
  44. 'SHOW=TEST.IFF'
  45.  
  46. say "ARexx: O.K. : Let's quit !"
  47.  
  48. address command Wait 2
  49.  
  50. 'QUIT'
  51.  
  52. CALL ErrorOut 0
  53.  
  54.  
  55. /* Errorout procedure ----------------------- */
  56.  
  57. ErrorOut:
  58.         PARSE ARG ExitCode
  59.  
  60.         EXIT ExitCode
  61.  
  62.   END
  63.